home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act5 / 00003.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  386 b   |  17 lines
  1. on exitFrame
  2.   global rocketc
  3.   set rocketc to 1 - value(rocketc)
  4.   if rocketc = 1 then
  5.     puppetSound("rocket")
  6.     updateStage()
  7.     set temp to the locV of sprite 22
  8.     smove(22, 90, [the locH of sprite 22, -50])
  9.     set the locV of sprite 22 to 530
  10.     smove(22, 50, [the locH of sprite 22, temp])
  11.   else
  12.     puppetSound("space bug")
  13.     mydelay(60)
  14.   end if
  15.   go("playloop")
  16. end
  17.